home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 17 / 017.d81 / magazine boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  645b  |  25 lines
  1. 10 POKE53281,2:POKE53280,2
  2. 15 PRINT"[158][147]"
  3. 20 PRINT"   [215]ARNING!"
  4. 30 PRINT:PRINT
  5. 40 PRINT"[217]OU ARE ABOUT TO EXIT THE [204][207][193][196][211][212][193][210]"
  6. 50 PRINT:PRINT"ENVIRONMENT."
  7. 60 PRINT:PRINT"[208]RESS 1 TO RUN [205]AGAZINE [197]NTRY."
  8. 70 PRINT:PRINT"[208]RESS 2 TO RETURN TO [204]OADSTAR."
  9. 80 PRINT:PRINT"[215]HICH?"
  10. 90 GETK$:IFK$=""THENGOSUB60000:GOTO90
  11. 100 POKE53280,RND(1)*15
  12. 110 K=VAL(K$)
  13. 120 ONKGOTO62000,63000:GOTO90
  14. 60000 IFC=0THENC=1:GOTO60005
  15. 60002 C=0
  16. 60005 IFC=0THENPRINT"   [215]ARNING!"
  17. 60010 IFC=1THENPRINT"   [215]ARNING!"
  18. 60020 RETURN
  19. 62000 REMCONNECT TO ACTUAL ENTERY PGM
  20. 62002 PRINT"[147]LOAD"CHR$(34)"MAGAZINE ENTRY"CHR$(34)",8":PRINT"RUN"
  21. 62004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
  22. 63000 REM    CONNECT BACK TO L.S.
  23. 63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
  24. 63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END
  25.